/ MacGames Sampler / PHT MacGames Bundle.iso / MacSource Folder / Samples from the CD / Editors / emacs / Emacs-1.14b1 / lisp / think-c / tc-send.elc

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 74 63 2d 73 65 6e | 64 2e 65 6c 63 00 00 00 |..tc-sen|d.elc...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 64 45 4c 43 45 4d 41 | 43 00 00 00 00 00 00 00 |.dELCEMA|C.......|
|00000050| 00 00 00 00 00 1f 4e 00 | 00 01 3c a9 9d 55 c5 aa |......N.|..<..U..|
|00000060| 10 46 e2 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.F......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d1 31 00 00 |........|.....1..|
|00000080| 0a 28 64 65 66 76 61 72 | 20 74 63 3a 75 73 65 2d |.(defvar| tc:use-|
|00000090| 64 65 62 75 67 67 65 72 | 20 6e 69 6c 29 0a 0a 28 |debugger| nil)..(|
|000000a0| 64 65 66 76 61 72 20 74 | 63 3a 71 75 69 63 6b 2d |defvar t|c:quick-|
|000000b0| 73 63 61 6e 20 74 20 22 | 5c 0a 2a 57 68 65 6e 20 |scan t "|\.*When |
|000000c0| 6e 69 6c 2c 20 74 75 72 | 6e 20 6f 66 66 20 71 75 |nil, tur|n off qu|
|000000d0| 69 63 6b 20 73 63 61 6e | 20 66 6f 72 20 4d 61 6b |ick scan| for Mak|
|000000e0| 65 2e 22 29 0a 0a 28 64 | 65 66 6d 61 63 72 6f 20 |e.")..(d|efmacro |
|000000f0| 63 72 65 61 74 65 2d 74 | 68 69 6e 6b 2d 63 2d 61 |create-t|hink-c-a|
|00000100| 70 70 6c 65 2d 65 76 65 | 6e 74 20 28 65 76 65 6e |pple-eve|nt (even|
|00000110| 74 43 6c 61 73 73 20 65 | 76 65 6e 74 49 44 20 65 |tClass e|ventID e|
|00000120| 76 65 6e 74 20 74 72 61 | 6e 73 61 63 74 69 6f 6e |vent tra|nsaction|
|00000130| 49 44 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |ID) (byt|e-code "|
|00000140| c4 c5 c6 08 09 0a 0b 26 | 06 87 22 20 5b 65 76 65 |.......&|.." [eve|
|00000150| 6e 74 43 6c 61 73 73 20 | 65 76 65 6e 74 49 44 20 |ntClass |eventID |
|00000160| 65 76 65 6e 74 20 74 72 | 61 6e 73 61 63 74 69 6f |event tr|ansactio|
|00000170| 6e 49 44 20 6c 69 73 74 | 20 61 65 2d 63 72 65 61 |nID list| ae-crea|
|00000180| 74 65 2d 61 70 70 6c 65 | 2d 65 76 65 6e 74 20 22 |te-apple|-event "|
|00000190| 4b 41 48 4c 22 5d 20 37 | 29 29 0a 0a 28 64 65 66 |KAHL"] 7|))..(def|
|000001a0| 75 6e 20 74 63 3a 73 65 | 6e 64 2d 65 76 65 6e 74 |un tc:se|nd-event|
|000001b0| 20 28 65 76 65 6e 74 29 | 20 28 62 79 74 65 2d 63 | (event)| (byte-c|
|000001c0| 6f 64 65 20 22 c7 09 c8 | 5c 22 18 c9 0b 08 0c 0d |ode "...|\"......|
|000001d0| 5c 5c 0e 06 c8 c8 c8 26 | 07 1a ca 0a 21 3f 83 1e |\\.....&|....!?..|
|000001e0| 00 0a 82 1f 00 08 2a 87 | 22 20 5b 72 65 70 6c 79 |......*.|" [reply|
|000001f0| 20 73 69 7a 65 6f 66 2d | 41 70 70 6c 65 45 76 65 | sizeof-|AppleEve|
|00000200| 6e 74 20 65 72 72 20 65 | 76 65 6e 74 20 6b 41 45 |nt err e|vent kAE|
|00000210| 51 75 65 75 65 52 65 70 | 6c 79 20 6b 41 45 4e 65 |QueueRep|ly kAENe|
|00000220| 76 65 72 49 6e 74 65 72 | 61 63 74 20 6b 41 45 4e |verInter|act kAEN|
|00000230| 6f 72 6d 61 6c 50 72 69 | 6f 72 69 74 79 20 6d 61 |ormalPri|ority ma|
|00000240| 6b 65 2d 73 74 72 69 6e | 67 20 30 20 41 45 53 65 |ke-strin|g 0 AESe|
|00000250| 6e 64 20 7a 65 72 6f 70 | 5d 20 39 29 29 0a 0a 28 |nd zerop|] 9))..(|
|00000260| 64 65 66 75 6e 20 74 63 | 3a 6f 70 65 6e 2d 66 69 |defun tc|:open-fi|
|00000270| 6c 65 20 28 66 69 6c 65 | 29 20 28 62 79 74 65 2d |le (file|) (byte-|
|00000280| 63 6f 64 65 20 22 c6 18 | c7 0a c8 5c 22 19 c6 1b |code "..|...\"...|
|00000290| c6 1c c9 ca 8d 1d 08 85 | 16 00 cb 08 21 88 0d 2d |........|....!..-|
|000002a0| 87 22 20 5b 65 76 65 6e | 74 20 72 65 70 6c 79 20 |." [even|t reply |
|000002b0| 73 69 7a 65 6f 66 2d 41 | 70 70 6c 65 45 76 65 6e |sizeof-A|ppleEven|
|000002c0| 74 20 73 70 65 63 20 74 | 72 61 6e 73 61 63 74 69 |t spec t|ransacti|
|000002d0| 6f 6e 49 44 20 72 65 73 | 75 6c 74 20 6e 69 6c 20 |onID res|ult nil |
|000002e0| 6d 61 6b 65 2d 73 74 72 | 69 6e 67 20 30 20 70 61 |make-str|ing 0 pa|
|000002f0| 6e 69 63 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |nic (byt|e-code "|
|00000300| ce cf d0 09 0a 23 18 08 | 41 40 89 13 88 08 41 41 |.....#..|A@....AA|
|00000310| 89 14 88 08 40 29 21 88 | ce d1 0d 21 18 08 40 89 |....@)!.|...!..@.|
|00000320| 16 06 88 08 41 29 21 88 | ce d2 0b 0e 07 0e 08 0e |....A)!.|........|
|00000330| 06 0e 06 47 25 21 88 ce | d3 0b 0e 09 0e 0a 0e 0b |...G%!..|........|
|00000340| 5c 5c 0e 0c d4 d4 d4 26 | 07 21 88 0e 0d 87 22 20 |\\.....&|.!...." |
|00000350| 5b 74 65 6d 70 20 6b 43 | 6f 72 65 45 76 65 6e 74 |[temp kC|oreEvent|
|00000360| 43 6c 61 73 73 20 6b 41 | 45 4f 70 65 6e 44 6f 63 |Class kA|EOpenDoc|
|00000370| 75 6d 65 6e 74 73 20 65 | 76 65 6e 74 20 74 72 61 |uments e|vent tra|
|00000380| 6e 73 61 63 74 69 6f 6e | 49 44 20 66 69 6c 65 20 |nsaction|ID file |
|00000390| 73 70 65 63 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |spec key|DirectOb|
|000003a0| 6a 65 63 74 20 74 79 70 | 65 46 53 53 20 72 65 70 |ject typ|eFSS rep|
|000003b0| 6c 79 20 6b 41 45 4e 6f | 52 65 70 6c 79 20 6b 41 |ly kAENo|Reply kA|
|000003c0| 45 4e 65 76 65 72 49 6e | 74 65 72 61 63 74 20 6b |ENeverIn|teract k|
|000003d0| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|000003e0| 20 6e 6f 45 72 72 20 74 | 68 72 6f 77 2d 65 72 72 | noErr t|hrow-err|
|000003f0| 20 61 65 2d 63 72 65 61 | 74 65 2d 61 70 70 6c 65 | ae-crea|te-apple|
|00000400| 2d 65 76 65 6e 74 2d 69 | 6e 74 65 72 6e 61 6c 20 |-event-i|nternal |
|00000410| 22 4b 41 48 4c 22 20 75 | 6e 69 78 2d 66 69 6c 65 |"KAHL" u|nix-file|
|00000420| 6e 61 6d 65 2d 74 6f 2d | 46 53 53 70 65 63 2d 69 |name-to-|FSSpec-i|
|00000430| 6e 74 65 72 6e 61 6c 20 | 41 45 50 75 74 50 61 72 |nternal |AEPutPar|
|00000440| 61 6d 50 74 72 20 41 45 | 53 65 6e 64 20 30 5d 20 |amPtr AE|Send 0] |
|00000450| 31 35 29 20 41 45 44 69 | 73 70 6f 73 65 44 65 73 |15) AEDi|sposeDes|
|00000460| 63 5d 20 33 29 29 0a 0a | 28 64 65 66 75 6e 20 74 |c] 3))..|(defun t|
|00000470| 63 3a 72 75 6e 20 6e 69 | 6c 20 28 62 79 74 65 2d |c:run ni|l (byte-|
|00000480| 63 6f 64 65 20 22 c5 18 | c6 0a c7 5c 22 19 c5 1b |code "..|...\"...|
|00000490| c8 c9 8d 1c 08 85 14 00 | ca 08 21 88 0c 2c 87 22 |........|..!..,."|
|000004a0| 20 5b 65 76 65 6e 74 20 | 72 65 70 6c 79 20 73 69 | [event |reply si|
|000004b0| 7a 65 6f 66 2d 41 70 70 | 6c 65 45 76 65 6e 74 20 |zeof-App|leEvent |
|000004c0| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 72 65 |transact|ionID re|
|000004d0| 73 75 6c 74 20 6e 69 6c | 20 6d 61 6b 65 2d 73 74 |sult nil| make-st|
|000004e0| 72 69 6e 67 20 30 20 70 | 61 6e 69 63 20 28 62 79 |ring 0 p|anic (by|
|000004f0| 74 65 2d 63 6f 64 65 20 | 22 d3 d4 d5 09 0a 23 18 |te-code |".....#.|
|00000500| 08 41 40 89 13 88 08 41 | 41 89 14 88 08 40 29 21 |.A@....A|A....@)!|
|00000510| 88 d3 d6 0b 0d 0e 06 0e | 07 d7 25 21 88 d3 d6 0b |........|..%!....|
|00000520| 0e 08 0e 06 0e 07 d7 25 | 21 88 d3 d6 0b 0e 09 0e |.......%|!.......|
|00000530| 0a d8 d9 0e 0b 83 43 00 | d9 82 44 00 da 5c 22 d9 |......C.|..D..\".|
|00000540| 25 21 88 d3 d6 0b 0e 0c | 0e 0a d8 d9 d9 5c 22 d9 |%!......|.....\".|
|00000550| 25 21 88 d3 db 0b 0e 0d | 0e 0e 0e 0f 5c 5c 0e 10 |%!......|....\\..|
|00000560| da da da 26 07 21 88 0c | dc dd 42 de df 42 44 42 |...&.!..|..B..BDB|
|00000570| 0e 11 42 89 16 11 88 0e | 12 87 22 20 5b 74 65 6d |..B.....|.." [tem|
|00000580| 70 20 6b 41 45 54 68 69 | 6e 6b 53 75 69 74 65 20 |p kAEThi|nkSuite |
|00000590| 6b 41 45 52 75 6e 20 65 | 76 65 6e 74 20 74 72 61 |kAERun e|vent tra|
|000005a0| 6e 73 61 63 74 69 6f 6e | 49 44 20 6b 65 79 55 70 |nsaction|ID keyUp|
|000005b0| 64 61 74 65 4f 70 74 69 | 6f 6e 73 20 74 79 70 65 |dateOpti|ons type|
|000005c0| 45 6e 75 6d 65 72 61 74 | 65 64 20 6b 41 45 59 65 |Enumerat|ed kAEYe|
|000005d0| 73 20 6b 65 79 41 45 53 | 61 76 65 4f 70 74 69 6f |s keyAES|aveOptio|
|000005e0| 6e 73 20 6b 65 79 55 73 | 65 44 65 62 75 67 67 65 |ns keyUs|eDebugge|
|000005f0| 72 20 74 79 70 65 42 6f | 6f 6c 65 61 6e 20 74 63 |r typeBo|olean tc|
|00000600| 3a 75 73 65 2d 64 65 62 | 75 67 67 65 72 20 6b 65 |:use-deb|ugger ke|
|00000610| 79 47 6f 20 72 65 70 6c | 79 20 6b 41 45 51 75 65 |yGo repl|y kAEQue|
|00000620| 75 65 52 65 70 6c 79 20 | 6b 41 45 4e 65 76 65 72 |ueReply |kAENever|
|00000630| 49 6e 74 65 72 61 63 74 | 20 6b 41 45 4e 6f 72 6d |Interact| kAENorm|
|00000640| 61 6c 50 72 69 6f 72 69 | 74 79 20 61 65 2d 68 69 |alPriori|ty ae-hi|
|00000650| 73 74 6f 72 79 20 6e 6f | 45 72 72 20 74 68 72 6f |story no|Err thro|
|00000660| 77 2d 65 72 72 20 61 65 | 2d 63 72 65 61 74 65 2d |w-err ae|-create-|
|00000670| 61 70 70 6c 65 2d 65 76 | 65 6e 74 2d 69 6e 74 65 |apple-ev|ent-inte|
|00000680| 72 6e 61 6c 20 22 4b 41 | 48 4c 22 20 41 45 50 75 |rnal "KA|HL" AEPu|
|00000690| 74 50 61 72 61 6d 50 74 | 72 20 34 20 6d 61 6b 65 |tParamPt|r 4 make|
|000006a0| 2d 73 74 72 69 6e 67 20 | 31 20 30 20 41 45 53 65 |-string |1 0 AESe|
|000006b0| 6e 64 20 64 65 73 63 72 | 69 70 74 69 6f 6e 20 22 |nd descr|iption "|
|000006c0| 72 75 6e 22 20 68 61 6e | 64 6c 65 72 20 64 6f 2d |run" han|dler do-|
|000006d0| 73 69 6d 70 6c 65 2d 72 | 65 70 6c 79 5d 20 32 31 |simple-r|eply] 21|
|000006e0| 29 20 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 5d |) AEDisp|oseDesc]|
|000006f0| 20 33 29 29 0a 0a 28 64 | 65 66 75 6e 20 74 63 3a | 3))..(d|efun tc:|
|00000700| 6f 70 65 6e 2d 70 72 6f | 6a 65 63 74 20 28 66 69 |open-pro|ject (fi|
|00000710| 6c 65 29 20 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |le) (byt|e-code "|
|00000720| c7 18 c7 19 c8 0b c9 5c | 22 1a c7 1c c7 1d ca cb |.......\|".......|
|00000730| 8d 1e 06 08 85 19 00 cc | 08 21 88 0e 06 2e 06 87 |........|.!......|
|00000740| 22 20 5b 65 76 65 6e 74 | 20 73 70 65 63 20 72 65 |" [event| spec re|
|00000750| 70 6c 79 20 73 69 7a 65 | 6f 66 2d 41 70 70 6c 65 |ply size|of-Apple|
|00000760| 45 76 65 6e 74 20 61 63 | 74 75 61 6c 53 69 7a 65 |Event ac|tualSize|
|00000770| 20 74 72 61 6e 73 61 63 | 74 69 6f 6e 49 44 20 72 | transac|tionID r|
|00000780| 65 73 75 6c 74 20 6e 69 | 6c 20 6d 61 6b 65 2d 73 |esult ni|l make-s|
|00000790| 74 72 69 6e 67 20 30 20 | 70 61 6e 69 63 20 28 62 |tring 0 |panic (b|
|000007a0| 79 74 65 2d 63 6f 64 65 | 20 22 cf d0 d1 09 0a 23 |yte-code| ".....#|
|000007b0| 18 08 41 40 89 13 88 08 | 41 41 89 14 88 08 40 29 |..A@....|AA....@)|
|000007c0| 21 88 cf d2 0d 21 18 08 | 40 89 16 06 88 08 41 29 |!....!..|@.....A)|
|000007d0| 21 88 cf d3 0b 0e 07 0e | 08 0e 06 0e 06 47 25 21 |!.......|.....G%!|
|000007e0| 88 cf d4 0b 0e 09 0e 0a | 0e 0b 5c 5c 0e 0c d5 d5 |........|..\\....|
|000007f0| d5 26 07 21 88 0c d6 d7 | 0d 50 42 d8 d9 42 44 42 |.&.!....|.PB..BDB|
|00000800| 0e 0d 42 89 16 0d 88 0e | 0e 87 22 20 5b 74 65 6d |..B.....|.." [tem|
|00000810| 70 20 6b 43 6f 72 65 45 | 76 65 6e 74 43 6c 61 73 |p kCoreE|ventClas|
|00000820| 73 20 6b 41 45 4f 70 65 | 6e 20 65 76 65 6e 74 20 |s kAEOpe|n event |
|00000830| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 66 69 |transact|ionID fi|
|00000840| 6c 65 20 73 70 65 63 20 | 6b 65 79 44 69 72 65 63 |le spec |keyDirec|
|00000850| 74 4f 62 6a 65 63 74 20 | 74 79 70 65 46 53 53 20 |tObject |typeFSS |
|00000860| 72 65 70 6c 79 20 6b 41 | 45 51 75 65 75 65 52 65 |reply kA|EQueueRe|
|00000870| 70 6c 79 20 6b 41 45 4e | 65 76 65 72 49 6e 74 65 |ply kAEN|everInte|
|00000880| 72 61 63 74 20 6b 41 45 | 4e 6f 72 6d 61 6c 50 72 |ract kAE|NormalPr|
|00000890| 69 6f 72 69 74 79 20 61 | 65 2d 68 69 73 74 6f 72 |iority a|e-histor|
|000008a0| 79 20 6e 6f 45 72 72 20 | 74 68 72 6f 77 2d 65 72 |y noErr |throw-er|
|000008b0| 72 20 61 65 2d 63 72 65 | 61 74 65 2d 61 70 70 6c |r ae-cre|ate-appl|
|000008c0| 65 2d 65 76 65 6e 74 2d | 69 6e 74 65 72 6e 61 6c |e-event-|internal|
|000008d0| 20 22 4b 41 48 4c 22 20 | 75 6e 69 78 2d 66 69 6c | "KAHL" |unix-fil|
|000008e0| 65 6e 61 6d 65 2d 74 6f | 2d 46 53 53 70 65 63 2d |ename-to|-FSSpec-|
|000008f0| 69 6e 74 65 72 6e 61 6c | 20 41 45 50 75 74 50 61 |internal| AEPutPa|
|00000900| 72 61 6d 50 74 72 20 41 | 45 53 65 6e 64 20 30 20 |ramPtr A|ESend 0 |
|00000910| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 22 6f 70 65 |descript|ion "ope|
|00000920| 6e 2d 70 72 6f 6a 65 63 | 74 20 22 20 68 61 6e 64 |n-projec|t " hand|
|00000930| 6c 65 72 20 64 6f 2d 73 | 69 6d 70 6c 65 2d 72 65 |ler do-s|imple-re|
|00000940| 70 6c 79 5d 20 31 35 29 | 20 41 45 44 69 73 70 6f |ply] 15)| AEDispo|
|00000950| 73 65 44 65 73 63 5d 20 | 33 29 29 0a 0a 28 64 65 |seDesc] |3))..(de|
|00000960| 66 75 6e 20 74 63 3a 63 | 6c 6f 73 65 2d 70 72 6f |fun tc:c|lose-pro|
|00000970| 6a 65 63 74 20 6e 69 6c | 20 28 62 79 74 65 2d 63 |ject nil| (byte-c|
|00000980| 6f 64 65 20 22 ce 09 cf | 5c 22 18 d0 1a ce 09 cf |ode "...|\"......|
|00000990| 5c 22 1b d0 1c ce 09 cf | 5c 22 1d d0 1e 06 d0 1e |\"......|\"......|
|000009a0| 07 ce 0e 09 cf 5c 22 1e | 08 d0 1e 0a d0 1e 0b d1 |.....\".|........|
|000009b0| d2 21 1e 0c d3 d4 8d 1e | 0d 0a 85 37 00 d5 08 21 |.!......|...7...!|
|000009c0| 88 0c 85 3f 00 d5 0b 21 | 88 0e 06 85 48 00 d5 0d |...?...!|....H...|
|000009d0| 21 88 0e 07 85 52 00 d5 | 0e 07 21 88 0e 0d 2e 0c |!....R..|..!.....|
|000009e0| 87 22 20 5b 6e 75 6c 6c | 2d 64 65 73 63 20 73 69 |." [null|-desc si|
|000009f0| 7a 65 6f 66 2d 41 45 44 | 65 73 63 20 68 61 76 65 |zeof-AED|esc have|
|00000a00| 2d 6e 75 6c 6c 2d 64 65 | 73 63 20 70 72 6f 6a 2d |-null-de|sc proj-|
|00000a10| 64 65 73 63 20 68 61 76 | 65 2d 70 72 6f 6a 2d 64 |desc hav|e-proj-d|
|00000a20| 65 73 63 20 70 72 6f 6a | 2d 6f 62 6a 20 68 61 76 |esc proj|-obj hav|
|00000a30| 65 2d 70 72 6f 6a 2d 6f | 62 6a 20 65 76 65 6e 74 |e-proj-o|bj event|
|00000a40| 20 72 65 70 6c 79 20 73 | 69 7a 65 6f 66 2d 41 70 | reply s|izeof-Ap|
|00000a50| 70 6c 65 45 76 65 6e 74 | 20 61 63 74 75 61 6c 53 |pleEvent| actualS|
|00000a60| 69 7a 65 20 74 72 61 6e | 73 61 63 74 69 6f 6e 49 |ize tran|sactionI|
|00000a70| 44 20 6f 6e 65 20 72 65 | 73 75 6c 74 20 6d 61 6b |D one re|sult mak|
|00000a80| 65 2d 73 74 72 69 6e 67 | 20 30 20 6e 69 6c 20 65 |e-string| 0 nil e|
|00000a90| 6e 63 6f 64 65 2d 6c 6f | 6e 67 2d 69 6e 74 65 67 |ncode-lo|ng-integ|
|00000aa0| 65 72 20 31 20 70 61 6e | 69 63 20 28 62 79 74 65 |er 1 pan|ic (byte|
|00000ab0| 2d 63 6f 64 65 20 22 d8 | d9 da 09 0a 23 18 08 41 |-code ".|....#..A|
|00000ac0| 40 89 13 88 08 41 41 89 | 14 88 08 40 29 21 88 d8 |@....AA.|...@)!..|
|00000ad0| db 0d dc dd 0e 06 24 21 | 88 c8 89 16 07 88 d8 db |......$!|........|
|00000ae0| 0e 09 0e 0a 0e 0a 47 0e | 0b 24 21 88 c8 89 16 0c |......G.|.$!.....|
|00000af0| 88 d8 de 0e 0d 0e 06 0e | 0e 0e 0b dd 0e 0f 26 06 |........|......&.|
|00000b00| 21 88 c8 89 16 10 88 d8 | df 0b 0e 11 0e 0f 23 21 |!.......|......#!|
|00000b10| 88 d8 e0 0b 0e 12 0e 13 | 0e 14 5c 5c 0e 15 dd dd |........|..\\....|
|00000b20| dd 26 07 21 88 0c e1 e2 | 42 e3 e4 42 44 42 0e 16 |.&.!....|B..BDB..|
|00000b30| 42 89 16 16 88 0e 17 87 | 22 20 5b 74 65 6d 70 20 |B.......|" [temp |
|00000b40| 6b 43 6f 72 65 45 76 65 | 6e 74 43 6c 61 73 73 20 |kCoreEve|ntClass |
|00000b50| 6b 41 45 43 6c 6f 73 65 | 20 65 76 65 6e 74 20 74 |kAEClose| event t|
|00000b60| 72 61 6e 73 61 63 74 69 | 6f 6e 49 44 20 74 79 70 |ransacti|onID typ|
|00000b70| 65 4e 75 6c 6c 20 6e 75 | 6c 6c 2d 64 65 73 63 20 |eNull nu|ll-desc |
|00000b80| 68 61 76 65 2d 6e 75 6c | 6c 2d 64 65 73 63 20 74 |have-nul|l-desc t|
|00000b90| 20 74 79 70 65 4c 6f 6e | 67 49 6e 74 65 67 65 72 | typeLon|gInteger|
|00000ba0| 20 6f 6e 65 20 70 72 6f | 6a 2d 64 65 73 63 20 68 | one pro|j-desc h|
|00000bb0| 61 76 65 2d 70 72 6f 6a | 2d 64 65 73 63 20 63 50 |ave-proj|-desc cP|
|00000bc0| 72 6f 6a 65 63 74 44 6f | 63 75 6d 65 6e 74 20 66 |rojectDo|cument f|
|00000bd0| 6f 72 6d 41 62 73 6f 6c | 75 74 65 50 6f 73 69 74 |ormAbsol|utePosit|
|00000be0| 69 6f 6e 20 70 72 6f 6a | 2d 6f 62 6a 20 68 61 76 |ion proj|-obj hav|
|00000bf0| 65 2d 70 72 6f 6a 2d 6f | 62 6a 20 6b 65 79 44 69 |e-proj-o|bj keyDi|
|00000c00| 72 65 63 74 4f 62 6a 65 | 63 74 20 72 65 70 6c 79 |rectObje|ct reply|
|00000c10| 20 6b 41 45 51 75 65 75 | 65 52 65 70 6c 79 20 6b | kAEQueu|eReply k|
|00000c20| 41 45 4e 65 76 65 72 49 | 6e 74 65 72 61 63 74 20 |AENeverI|nteract |
|00000c30| 6b 41 45 4e 6f 72 6d 61 | 6c 50 72 69 6f 72 69 74 |kAENorma|lPriorit|
|00000c40| 79 20 61 65 2d 68 69 73 | 74 6f 72 79 20 6e 6f 45 |y ae-his|tory noE|
|00000c50| 72 72 20 74 68 72 6f 77 | 2d 65 72 72 20 61 65 2d |rr throw|-err ae-|
|00000c60| 63 72 65 61 74 65 2d 61 | 70 70 6c 65 2d 65 76 65 |create-a|pple-eve|
|00000c70| 6e 74 2d 69 6e 74 65 72 | 6e 61 6c 20 22 4b 41 48 |nt-inter|nal "KAH|
|00000c80| 4c 22 20 41 45 43 72 65 | 61 74 65 44 65 73 63 20 |L" AECre|ateDesc |
|00000c90| 22 22 20 30 20 43 72 65 | 61 74 65 4f 62 6a 53 70 |"" 0 Cre|ateObjSp|
|00000ca0| 65 63 69 66 69 65 72 20 | 41 45 50 75 74 50 61 72 |ecifier |AEPutPar|
|00000cb0| 61 6d 44 65 73 63 20 41 | 45 53 65 6e 64 20 64 65 |amDesc A|ESend de|
|00000cc0| 73 63 72 69 70 74 69 6f | 6e 20 22 63 6c 6f 73 65 |scriptio|n "close|
|00000cd0| 2d 70 72 6f 6a 65 63 74 | 22 20 68 61 6e 64 6c 65 |-project|" handle|
|00000ce0| 72 20 64 6f 2d 73 69 6d | 70 6c 65 2d 72 65 70 6c |r do-sim|ple-repl|
|00000cf0| 79 5d 20 31 39 29 20 41 | 45 44 69 73 70 6f 73 65 |y] 19) A|EDispose|
|00000d00| 44 65 73 63 5d 20 31 30 | 29 29 0a 0a 28 64 65 66 |Desc] 10|))..(def|
|00000d10| 75 6e 20 74 63 3a 62 75 | 69 6c 64 2d 61 70 70 6c |un tc:bu|ild-appl|
|00000d20| 69 63 61 74 69 6f 6e 20 | 28 61 70 70 6e 61 6d 65 |ication |(appname|
|00000d30| 29 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 cf 09 |) (byte-|code "..|
|00000d40| d0 5c 22 18 d1 1a cf 09 | d0 5c 22 1b d1 1c cf 09 |.\".....|.\".....|
|00000d50| d0 5c 22 1d d1 1e 06 d1 | 1e 07 cf 0e 09 d0 5c 22 |.\".....|......\"|
|00000d60| 1e 08 d1 1e 0a d1 1e 0b | d1 1e 0c d2 d3 21 1e 0d |........|.....!..|
|00000d70| d4 d5 8d 1e 0e 0a 85 3a | 00 d6 08 21 88 0e 06 85 |.......:|...!....|
|00000d80| 43 00 d6 0d 21 88 0c 85 | 4b 00 d6 0b 21 88 0e 07 |C...!...|K...!...|
|00000d90| 85 55 00 d6 0e 07 21 88 | 0e 0e 2e 0d 87 22 20 5b |.U....!.|....." [|
|00000da0| 6e 75 6c 6c 2d 64 65 73 | 63 20 73 69 7a 65 6f 66 |null-des|c sizeof|
|00000db0| 2d 41 45 44 65 73 63 20 | 68 61 76 65 2d 6e 75 6c |-AEDesc |have-nul|
|00000dc0| 6c 2d 64 65 73 63 20 70 | 72 6f 6a 2d 6f 62 6a 20 |l-desc p|roj-obj |
|00000dd0| 68 61 76 65 2d 70 72 6f | 6a 2d 6f 62 6a 20 70 72 |have-pro|j-obj pr|
|00000de0| 6f 6a 2d 64 65 73 63 20 | 68 61 76 65 2d 70 72 6f |oj-desc |have-pro|
|00000df0| 6a 2d 64 65 73 63 20 65 | 76 65 6e 74 20 72 65 70 |j-desc e|vent rep|
|00000e00| 6c 79 20 73 69 7a 65 6f | 66 2d 41 70 70 6c 65 45 |ly sizeo|f-AppleE|
|00000e10| 76 65 6e 74 20 61 63 74 | 75 61 6c 53 69 7a 65 20 |vent act|ualSize |
|00000e20| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 73 70 |transact|ionID sp|
|00000e30| 65 63 20 6f 6e 65 20 72 | 65 73 75 6c 74 20 6d 61 |ec one r|esult ma|
|00000e40| 6b 65 2d 73 74 72 69 6e | 67 20 30 20 6e 69 6c 20 |ke-strin|g 0 nil |
|00000e50| 65 6e 63 6f 64 65 2d 6c | 6f 6e 67 2d 69 6e 74 65 |encode-l|ong-inte|
|00000e60| 67 65 72 20 31 20 70 61 | 6e 69 63 20 28 62 79 74 |ger 1 pa|nic (byt|
|00000e70| 65 2d 63 6f 64 65 20 22 | e2 e3 e4 09 0a 23 18 08 |e-code "|.....#..|
|00000e80| 41 40 89 13 88 08 41 41 | 89 14 88 08 40 29 21 88 |A@....AA|....@)!.|
|00000e90| e2 e5 0d e6 e7 0e 06 24 | 21 88 c8 89 16 07 88 e2 |.......$|!.......|
|00000ea0| e5 0e 09 0e 0a 0e 0a 47 | 0e 0b 24 21 88 c8 89 16 |.......G|..$!....|
|00000eb0| 0c 88 e2 e8 0e 0d 0e 06 | 0e 0e 0e 0b e7 0e 0f 26 |........|.......&|
|00000ec0| 06 21 88 c8 89 16 10 88 | e2 e9 0b 0e 11 0e 0f 23 |.!......|.......#|
|00000ed0| 21 88 ea 0e 13 21 18 08 | 40 89 16 14 88 08 41 29 |!....!..|@.....A)|
|00000ee0| 1e 12 eb 0e 12 21 3f 85 | 78 00 0e 12 0e 15 55 3f |.....!?.|x.....U?|
|00000ef0| 85 80 00 ec ed 0e 12 5c | 22 29 88 e2 ee 0b 0e 16 |.......\|")......|
|00000f00| 0e 17 0e 14 0e 14 47 25 | 21 88 e2 ee 0b 0e 18 0e |......G%|!.......|
|00000f10| 19 0e 1a ef 25 21 88 e2 | ee 0b 0e 1b 0e 09 0e 0a |....%!..|........|
|00000f20| 0e 0a 47 25 21 88 e2 f0 | 0b 0e 1c 0e 1d 0e 1e 5c |..G%!...|.......\|
|00000f30| 5c 0e 1f e7 e7 e7 26 07 | 21 88 0c f1 f2 0e 13 50 |\.....&.|!......P|
|00000f40| 42 f3 f4 42 44 42 0e 20 | 42 89 16 20 88 0e 21 87 |B..BDB. |B.. ..!.|
|00000f50| 22 20 5b 74 65 6d 70 20 | 6b 41 45 43 6f 72 65 53 |" [temp |kAECoreS|
|00000f60| 75 69 74 65 20 6b 41 45 | 53 61 76 65 20 65 76 65 |uite kAE|Save eve|
|00000f70| 6e 74 20 74 72 61 6e 73 | 61 63 74 69 6f 6e 49 44 |nt trans|actionID|
|00000f80| 20 74 79 70 65 4e 75 6c | 6c 20 6e 75 6c 6c 2d 64 | typeNul|l null-d|
|00000f90| 65 73 63 20 68 61 76 65 | 2d 6e 75 6c 6c 2d 64 65 |esc have|-null-de|
|00000fa0| 73 63 20 74 20 74 79 70 | 65 4c 6f 6e 67 49 6e 74 |sc t typ|eLongInt|
|00000fb0| 65 67 65 72 20 6f 6e 65 | 20 70 72 6f 6a 2d 64 65 |eger one| proj-de|
|00000fc0| 73 63 20 68 61 76 65 2d | 70 72 6f 6a 2d 64 65 73 |sc have-|proj-des|
|00000fd0| 63 20 63 50 72 6f 6a 65 | 63 74 44 6f 63 75 6d 65 |c cProje|ctDocume|
|00000fe0| 6e 74 20 66 6f 72 6d 41 | 62 73 6f 6c 75 74 65 50 |nt formA|bsoluteP|
|00000ff0| 6f 73 69 74 69 6f 6e 20 | 70 72 6f 6a 2d 6f 62 6a |osition |proj-obj|
|00001000| 20 68 61 76 65 2d 70 72 | 6f 6a 2d 6f 62 6a 20 6b | have-pr|oj-obj k|
|00001010| 65 79 44 69 72 65 63 74 | 4f 62 6a 65 63 74 20 65 |eyDirect|Object e|
|00001020| 72 72 20 61 70 70 6e 61 | 6d 65 20 73 70 65 63 20 |rr appna|me spec |
|00001030| 66 6e 66 45 72 72 20 6b | 65 79 41 45 46 69 6c 65 |fnfErr k|eyAEFile|
|00001040| 20 74 79 70 65 46 53 53 | 20 6b 65 79 41 45 46 69 | typeFSS| keyAEFi|
|00001050| 6c 65 54 79 70 65 20 74 | 79 70 65 54 79 70 65 20 |leType t|ypeType |
|00001060| 6b 50 72 6f 6a 65 63 74 | 54 79 70 65 20 6b 65 79 |kProject|Type key|
|00001070| 53 61 76 65 46 6c 61 67 | 73 20 72 65 70 6c 79 20 |SaveFlag|s reply |
|00001080| 6b 41 45 51 75 65 75 65 | 52 65 70 6c 79 20 6b 41 |kAEQueue|Reply kA|
|00001090| 45 4e 65 76 65 72 49 6e | 74 65 72 61 63 74 20 6b |ENeverIn|teract k|
|000010a0| 41 45 4e 6f 72 6d 61 6c | 50 72 69 6f 72 69 74 79 |AENormal|Priority|
|000010b0| 20 61 65 2d 68 69 73 74 | 6f 72 79 20 6e 6f 45 72 | ae-hist|ory noEr|
|000010c0| 72 20 74 68 72 6f 77 2d | 65 72 72 20 61 65 2d 63 |r throw-|err ae-c|
|000010d0| 72 65 61 74 65 2d 61 70 | 70 6c 65 2d 65 76 65 6e |reate-ap|ple-even|
|000010e0| 74 2d 69 6e 74 65 72 6e | 61 6c 20 22 4b 41 48 4c |t-intern|al "KAHL|
|000010f0| 22 20 41 45 43 72 65 61 | 74 65 44 65 73 63 20 22 |" AECrea|teDesc "|
|00001100| 22 20 30 20 43 72 65 61 | 74 65 4f 62 6a 53 70 65 |" 0 Crea|teObjSpe|
|00001110| 63 69 66 69 65 72 20 41 | 45 50 75 74 50 61 72 61 |cifier A|EPutPara|
|00001120| 6d 44 65 73 63 20 75 6e | 69 78 2d 66 69 6c 65 6e |mDesc un|ix-filen|
|00001130| 61 6d 65 2d 74 6f 2d 46 | 53 53 70 65 63 2d 69 6e |ame-to-F|SSpec-in|
|00001140| 74 65 72 6e 61 6c 20 7a | 65 72 6f 70 20 74 68 72 |ternal z|erop thr|
|00001150| 6f 77 20 70 61 6e 69 63 | 20 41 45 50 75 74 50 61 |ow panic| AEPutPa|
|00001160| 72 61 6d 50 74 72 20 34 | 20 41 45 53 65 6e 64 20 |ramPtr 4| AESend |
|00001170| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 22 62 75 69 |descript|ion "bui|
|00001180| 6c 64 2d 61 70 70 6c 69 | 63 61 74 69 6f 6e 20 22 |ld-appli|cation "|
|00001190| 20 68 61 6e 64 6c 65 72 | 20 74 63 3a 64 6f 2d 62 | handler| tc:do-b|
|000011a0| 75 69 6c 64 2d 72 65 70 | 6c 79 5d 20 32 38 29 20 |uild-rep|ly] 28) |
|000011b0| 41 45 44 69 73 70 6f 73 | 65 44 65 73 63 5d 20 31 |AEDispos|eDesc] 1|
|000011c0| 30 29 29 0a 0a 28 64 65 | 66 75 6e 20 74 63 3a 6d |0))..(de|fun tc:m|
|000011d0| 61 6b 65 20 6e 69 6c 20 | 28 62 79 74 65 2d 63 6f |ake nil |(byte-co|
|000011e0| 64 65 20 22 d1 09 d2 5c | 22 18 d3 1a d1 09 d2 5c |de "...\|"......\|
|000011f0| 22 1b d3 1c d1 09 d2 5c | 22 1d d3 1e 06 d1 0e 08 |"......\|".......|
|00001200| d2 5c 22 1e 07 d3 1e 09 | d3 1e 0a d3 1e 0b d3 1e |.\".....|........|
|00001210| 0c d4 0e 0e 83 33 00 d5 | 82 34 00 d2 d6 5c 5c 21 |.....3..|.4...\\!|
|00001220| 1e 0d d4 d7 21 1e 0f d8 | d9 8d 1e 10 0a 85 4a 00 |....!...|......J.|
|00001230| da 08 21 88 0c 85 52 00 | da 0b 21 88 0e 06 85 5b |..!...R.|..!....[|
|00001240| 00 da 0d 21 88 0e 09 85 | 65 00 da 0e 09 21 88 0e |...!....|e....!..|
|00001250| 10 2e 0e 87 22 20 5b 6e | 75 6c 6c 2d 64 65 73 63 |...." [n|ull-desc|
|00001260| 20 73 69 7a 65 6f 66 2d | 41 45 44 65 73 63 20 68 | sizeof-|AEDesc h|
|00001270| 61 76 65 2d 6e 75 6c 6c | 2d 64 65 73 63 20 66 69 |ave-null|-desc fi|
|00001280| 6c 65 2d 64 65 73 63 20 | 68 61 76 65 2d 66 69 6c |le-desc |have-fil|
|00001290| 65 2d 64 65 73 63 20 66 | 69 6c 65 2d 6f 62 6a 20 |e-desc f|ile-obj |
|000012a0| 68 61 76 65 2d 66 69 6c | 65 2d 6f 62 6a 20 72 65 |have-fil|e-obj re|
|000012b0| 70 6c 79 20 73 69 7a 65 | 6f 66 2d 41 70 70 6c 65 |ply size|of-Apple|
|000012c0| 45 76 65 6e 74 20 65 76 | 65 6e 74 20 72 65 73 75 |Event ev|ent resu|
|000012d0| 6c 74 54 79 70 65 20 74 | 72 61 6e 73 61 63 74 69 |ltType t|ransacti|
|000012e0| 6f 6e 49 44 20 61 63 74 | 75 61 6c 53 69 7a 65 20 |onID act|ualSize |
|000012f0| 66 6c 61 67 73 20 74 63 | 3a 71 75 69 63 6b 2d 73 |flags tc|:quick-s|
|00001300| 63 61 6e 20 6f 6e 65 20 | 72 65 73 75 6c 74 20 6d |can one |result m|
|00001310| 61 6b 65 2d 73 74 72 69 | 6e 67 20 30 20 6e 69 6c |ake-stri|ng 0 nil|
|00001320| 20 65 6e 63 6f 64 65 2d | 6c 6f 6e 67 2d 69 6e 74 | encode-|long-int|
|00001330| 65 67 65 72 20 32 20 34 | 20 31 20 70 61 6e 69 63 |eger 2 4| 1 panic|
|00001340| 20 28 62 79 74 65 2d 63 | 6f 64 65 20 22 da db dc | (byte-c|ode "...|
|00001350| 09 0a 23 18 08 41 40 89 | 13 88 08 41 41 89 14 88 |..#..A@.|...AA...|
|00001360| 08 40 29 21 88 da dd 0d | de df 0e 06 24 21 88 c8 |.@)!....|....$!..|
|00001370| 89 16 07 88 da dd 0e 09 | 0e 0a 0e 0a 47 0e 0b 24 |........|....G..$|
|00001380| 21 88 c8 89 16 0c 88 da | e0 0e 0d 0e 06 0e 0e 0e |!.......|........|
|00001390| 0b df 0e 0f 26 06 21 88 | c8 89 16 10 88 da e1 0b |....&.!.|........|
|000013a0| 0e 11 0e 0f 23 21 88 da | e2 0b 0e 12 0e 09 0e 13 |....#!..|........|
|000013b0| 0e 13 47 25 21 88 da e3 | 0b 0e 14 0e 15 0e 16 5c |..G%!...|.......\|
|000013c0| 5c 0e 17 df df df 26 07 | 21 88 0c e4 e5 42 e6 e7 |\.....&.|!....B..|
|000013d0| 42 e8 0a 42 45 42 0e 18 | 42 89 16 18 88 0e 19 87 |B..BEB..|B.......|
|000013e0| 22 20 5b 74 65 6d 70 20 | 6b 41 45 54 68 69 6e 6b |" [temp |kAEThink|
|000013f0| 53 75 69 74 65 20 6b 4d | 61 6b 65 20 65 76 65 6e |Suite kM|ake even|
|00001400| 74 20 74 72 61 6e 73 61 | 63 74 69 6f 6e 49 44 20 |t transa|ctionID |
|00001410| 74 79 70 65 4e 75 6c 6c | 20 6e 75 6c 6c 2d 64 65 |typeNull| null-de|
|00001420| 73 63 20 68 61 76 65 2d | 6e 75 6c 6c 2d 64 65 73 |sc have-|null-des|
|00001430| 63 20 74 20 74 79 70 65 | 4c 6f 6e 67 49 6e 74 65 |c t type|LongInte|
|00001440| 67 65 72 20 6f 6e 65 20 | 66 69 6c 65 2d 64 65 73 |ger one |file-des|
|00001450| 63 20 68 61 76 65 2d 66 | 69 6c 65 2d 64 65 73 63 |c have-f|ile-desc|
|00001460| 20 63 50 72 6f 6a 65 63 | 74 44 6f 63 75 6d 65 6e | cProjec|tDocumen|
|00001470| 74 20 66 6f 72 6d 41 62 | 73 6f 6c 75 74 65 50 6f |t formAb|solutePo|
|00001480| 73 69 74 69 6f 6e 20 66 | 69 6c 65 2d 6f 62 6a 20 |sition f|ile-obj |
|00001490| 68 61 76 65 2d 66 69 6c | 65 2d 6f 62 6a 20 6b 65 |have-fil|e-obj ke|
|000014a0| 79 44 69 72 65 63 74 4f | 62 6a 65 63 74 20 6b 65 |yDirectO|bject ke|
|000014b0| 79 43 6f 6d 70 69 6c 65 | 46 6c 61 67 73 20 66 6c |yCompile|Flags fl|
|000014c0| 61 67 73 20 72 65 70 6c | 79 20 6b 41 45 51 75 65 |ags repl|y kAEQue|
|000014d0| 75 65 52 65 70 6c 79 20 | 6b 41 45 4e 65 76 65 72 |ueReply |kAENever|
|000014e0| 49 6e 74 65 72 61 63 74 | 20 6b 41 45 4e 6f 72 6d |Interact| kAENorm|
|000014f0| 61 6c 50 72 69 6f 72 69 | 74 79 20 61 65 2d 68 69 |alPriori|ty ae-hi|
|00001500| 73 74 6f 72 79 20 6e 6f | 45 72 72 20 74 68 72 6f |story no|Err thro|
|00001510| 77 2d 65 72 72 20 61 65 | 2d 63 72 65 61 74 65 2d |w-err ae|-create-|
|00001520| 61 70 70 6c 65 2d 65 76 | 65 6e 74 2d 69 6e 74 65 |apple-ev|ent-inte|
|00001530| 72 6e 61 6c 20 22 4b 41 | 48 4c 22 20 41 45 43 72 |rnal "KA|HL" AECr|
|00001540| 65 61 74 65 44 65 73 63 | 20 22 22 20 30 20 43 72 |eateDesc| "" 0 Cr|
|00001550| 65 61 74 65 4f 62 6a 53 | 70 65 63 69 66 69 65 72 |eateObjS|pecifier|
|00001560| 20 41 45 50 75 74 50 61 | 72 61 6d 44 65 73 63 20 | AEPutPa|ramDesc |
|00001570| 41 45 50 75 74 50 61 72 | 61 6d 50 74 72 20 41 45 |AEPutPar|amPtr AE|
|00001580| 53 65 6e 64 20 64 65 73 | 63 72 69 70 74 69 6f 6e |Send des|cription|
|00001590| 20 22 6d 61 6b 65 22 20 | 68 61 6e 64 6c 65 72 20 | "make" |handler |
|000015a0| 74 63 3a 64 6f 2d 63 6f | 6d 70 69 6c 65 2d 72 65 |tc:do-co|mpile-re|
|000015b0| 70 6c 79 20 66 6c 61 76 | 6f 72 5d 20 32 31 29 20 |ply flav|or] 21) |
|000015c0| 41 45 44 69 73 70 6f 73 | 65 44 65 73 63 5d 20 31 |AEDispos|eDesc] 1|
|000015d0| 31 29 29 0a 0a 28 64 65 | 66 75 6e 20 74 63 3a 63 |1))..(de|fun tc:c|
|000015e0| 6f 6d 70 69 6c 65 2d 66 | 69 6c 65 2d 69 6e 74 65 |ompile-f|ile-inte|
|000015f0| 72 6e 61 6c 20 28 66 69 | 6c 65 20 6f 70 65 72 61 |rnal (fi|le opera|
|00001600| 74 69 6f 6e 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tion) (b|yte-code|
|00001610| 20 22 ce 09 cf 5c 22 18 | d0 1a ce 09 cf 5c 22 1b | "...\".|.....\".|
|00001620| d0 1c ce 09 cf 5c 22 1d | d0 1e 06 d0 1e 07 d0 1e |.....\".|........|
|00001630| 08 d0 1e 09 d0 1e 0a d0 | 1e 0b d1 d2 21 1e 0c d3 |........|....!...|
|00001640| d4 8d 1e 0d 0a 85 36 00 | d5 08 21 88 0c 85 3e 00 |......6.|..!...>.|
|00001650| d5 0b 21 88 0e 06 85 47 | 00 d5 0d 21 88 0e 08 85 |..!....G|...!....|
|00001660| 51 00 d5 0e 08 21 88 0e | 0d 2e 0d 87 22 20 5b 6e |Q....!..|...." [n|
|00001670| 75 6c 6c 2d 64 65 73 63 | 20 73 69 7a 65 6f 66 2d |ull-desc| sizeof-|
|00001680| 41 45 44 65 73 63 20 68 | 61 76 65 2d 6e 75 6c 6c |AEDesc h|ave-null|
|00001690| 2d 64 65 73 63 20 66 69 | 6c 65 2d 64 65 73 63 20 |-desc fi|le-desc |
|000016a0| 68 61 76 65 2d 66 69 6c | 65 2d 64 65 73 63 20 66 |have-fil|e-desc f|
|000016b0| 69 6c 65 2d 6f 62 6a 20 | 68 61 76 65 2d 66 69 6c |ile-obj |have-fil|
|000016c0| 65 2d 6f 62 6a 20 72 65 | 70 6c 79 20 65 76 65 6e |e-obj re|ply even|
|000016d0| 74 20 72 65 73 75 6c 74 | 54 79 70 65 20 74 72 61 |t result|Type tra|
|000016e0| 6e 73 61 63 74 69 6f 6e | 49 44 20 61 63 74 75 61 |nsaction|ID actua|
|000016f0| 6c 53 69 7a 65 20 66 6c | 61 67 73 20 72 65 73 75 |lSize fl|ags resu|
|00001700| 6c 74 20 6d 61 6b 65 2d | 73 74 72 69 6e 67 20 30 |lt make-|string 0|
|00001710| 20 6e 69 6c 20 65 6e 63 | 6f 64 65 2d 6c 6f 6e 67 | nil enc|ode-long|
|00001720| 2d 69 6e 74 65 67 65 72 | 20 33 32 20 70 61 6e 69 |-integer| 32 pani|
|00001730| 63 20 28 62 79 74 65 2d | 63 6f 64 65 20 22 dc dd |c (byte-|code "..|
|00001740| de 09 0a 23 18 08 41 40 | 89 13 88 08 41 41 89 14 |...#..A@|....AA..|
|00001750| 88 08 40 29 21 88 dc df | 0d e0 e1 0e 06 24 21 88 |..@)!...|.....$!.|
|00001760| c8 89 16 07 88 dc df 0e | 09 0e 0a 0e 0a 47 0e 0b |........|.....G..|
|00001770| 24 21 88 c8 89 16 0c 88 | dc e2 0e 0d 0e 06 0e 0e |$!......|........|
|00001780| 0e 0b e1 0e 0f 26 06 21 | 88 c8 89 16 10 88 dc e3 |.....&.!|........|
|00001790| 0b 0e 11 0e 0f 23 21 88 | e4 0a 0e 12 5c 22 86 67 |.....#!.|....\".g|
|000017a0| 00 e4 0a 0e 13 5c 22 85 | 78 00 dc e5 0b 0e 14 0e |.....\".|x.......|
|000017b0| 15 0e 16 0e 16 47 25 21 | 88 e6 0b 21 89 16 17 88 |.....G%!|...!....|
|000017c0| e7 0e 17 21 85 8c 00 e8 | e9 0e 17 5c 22 88 0c ea |...!....|...\"...|
|000017d0| eb 0a 0e 19 ec 42 0e 1a | ed 42 0e 13 ee 42 0e 12 |.....B..|.B...B..|
|000017e0| ef 42 46 5c 22 41 f0 0e | 0a 51 42 f1 f2 42 f3 0a |.BF\"A..|.QB..B..|
|000017f0| 42 45 42 0e 18 42 89 16 | 18 88 f4 20 88 0e 1b 87 |BEB..B..|... ....|
|00001800| 22 20 5b 74 65 6d 70 20 | 6b 41 45 54 68 69 6e 6b |" [temp |kAEThink|
|00001810| 53 75 69 74 65 20 6f 70 | 65 72 61 74 69 6f 6e 20 |Suite op|eration |
|00001820| 65 76 65 6e 74 20 74 72 | 61 6e 73 61 63 74 69 6f |event tr|ansactio|
|00001830| 6e 49 44 20 74 79 70 65 | 4e 75 6c 6c 20 6e 75 6c |nID type|Null nul|
|00001840| 6c 2d 64 65 73 63 20 68 | 61 76 65 2d 6e 75 6c 6c |l-desc h|ave-null|
|00001850| 2d 64 65 73 63 20 74 20 | 74 79 70 65 43 68 61 72 |-desc t |typeChar|
|00001860| 20 66 69 6c 65 20 66 69 | 6c 65 2d 64 65 73 63 20 | file fi|le-desc |
|00001870| 68 61 76 65 2d 66 69 6c | 65 2d 64 65 73 63 20 63 |have-fil|e-desc c|
|00001880| 53 6f 75 72 63 65 46 69 | 6c 65 20 66 6f 72 6d 4e |SourceFi|le formN|
|00001890| 61 6d 65 20 66 69 6c 65 | 2d 6f 62 6a 20 68 61 76 |ame file|-obj hav|
|000018a0| 65 2d 66 69 6c 65 2d 6f | 62 6a 20 6b 65 79 44 69 |e-file-o|bj keyDi|
|000018b0| 72 65 63 74 4f 62 6a 65 | 63 74 20 6b 44 69 73 61 |rectObje|ct kDisa|
|000018c0| 73 73 65 6d 62 6c 65 20 | 6b 50 72 65 70 72 6f 63 |ssemble |kPreproc|
|000018d0| 65 73 73 20 6b 65 79 43 | 6f 6d 70 69 6c 65 46 6c |ess keyC|ompileFl|
|000018e0| 61 67 73 20 74 79 70 65 | 4c 6f 6e 67 49 6e 74 65 |ags type|LongInte|
|000018f0| 67 65 72 20 66 6c 61 67 | 73 20 72 65 70 6c 79 20 |ger flag|s reply |
|00001900| 61 65 2d 68 69 73 74 6f | 72 79 20 6b 43 6f 6d 70 |ae-histo|ry kComp|
|00001910| 69 6c 65 20 6b 43 68 65 | 63 6b 53 79 6e 74 61 78 |ile kChe|ckSyntax|
|00001920| 20 6e 6f 45 72 72 20 74 | 68 72 6f 77 2d 65 72 72 | noErr t|hrow-err|
|00001930| 20 61 65 2d 63 72 65 61 | 74 65 2d 61 70 70 6c 65 | ae-crea|te-apple|
|00001940| 2d 65 76 65 6e 74 2d 69 | 6e 74 65 72 6e 61 6c 20 |-event-i|nternal |
|00001950| 22 4b 41 48 4c 22 20 41 | 45 43 72 65 61 74 65 44 |"KAHL" A|ECreateD|
|00001960| 65 73 63 20 22 22 20 30 | 20 43 72 65 61 74 65 4f |esc "" 0| CreateO|
|00001970| 62 6a 53 70 65 63 69 66 | 69 65 72 20 41 45 50 75 |bjSpecif|ier AEPu|
|00001980| 74 50 61 72 61 6d 44 65 | 73 63 20 65 71 75 61 6c |tParamDe|sc equal|
|00001990| 20 41 45 50 75 74 50 61 | 72 61 6d 50 74 72 20 74 | AEPutPa|ramPtr t|
|000019a0| 63 3a 73 65 6e 64 2d 65 | 76 65 6e 74 20 69 6e 74 |c:send-e|vent int|
|000019b0| 65 67 65 72 70 20 74 68 | 72 6f 77 20 70 61 6e 69 |egerp th|row pani|
|000019c0| 63 20 64 65 73 63 72 69 | 70 74 69 6f 6e 20 61 73 |c descri|ption as|
|000019d0| 73 6f 63 20 22 63 6f 6d | 70 69 6c 65 22 20 22 63 |soc "com|pile" "c|
|000019e0| 68 65 63 6b 2d 73 79 6e | 74 61 78 22 20 22 70 72 |heck-syn|tax" "pr|
|000019f0| 65 70 72 6f 63 65 73 73 | 22 20 22 64 69 73 61 73 |eprocess|" "disas|
|00001a00| 73 65 6d 62 6c 65 22 20 | 22 20 22 20 68 61 6e 64 |semble" |" " hand|
|00001a10| 6c 65 72 20 74 63 3a 64 | 6f 2d 63 6f 6d 70 69 6c |ler tc:d|o-compil|
|00001a20| 65 2d 72 65 70 6c 79 20 | 66 6c 61 76 6f 72 20 74 |e-reply |flavor t|
|00001a30| 63 3a 6c 61 75 6e 63 68 | 2d 74 70 6d 5d 20 32 36 |c:launch|-tpm] 26|
|00001a40| 29 20 41 45 44 69 73 70 | 6f 73 65 44 65 73 63 5d |) AEDisp|oseDesc]|
|00001a50| 20 39 29 29 0a 0a 28 64 | 65 66 75 6e 20 74 63 3a | 9))..(d|efun tc:|
|00001a60| 63 6f 6d 70 69 6c 65 2d | 66 69 6c 65 20 28 66 69 |compile-|file (fi|
|00001a70| 6c 65 6e 61 6d 65 29 20 | 28 62 79 74 65 2d 63 6f |lename) |(byte-co|
|00001a80| 64 65 20 22 c2 08 09 5c | 22 87 22 20 5b 66 69 6c |de "...\|"." [fil|
|00001a90| 65 6e 61 6d 65 20 6b 43 | 6f 6d 70 69 6c 65 20 74 |ename kC|ompile t|
|00001aa0| 63 3a 63 6f 6d 70 69 6c | 65 2d 66 69 6c 65 2d 69 |c:compil|e-file-i|
|00001ab0| 6e 74 65 72 6e 61 6c 5d | 20 33 29 29 0a 0a 28 64 |nternal]| 3))..(d|
|00001ac0| 65 66 75 6e 20 74 63 3a | 63 68 65 63 6b 2d 73 79 |efun tc:|check-sy|
|00001ad0| 6e 74 61 78 20 28 66 69 | 6c 65 6e 61 6d 65 29 20 |ntax (fi|lename) |
|00001ae0| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c2 08 09 5c |(byte-co|de "...\|
|00001af0| 22 87 22 20 5b 66 69 6c | 65 6e 61 6d 65 20 6b 43 |"." [fil|ename kC|
|00001b00| 68 65 63 6b 53 79 6e 74 | 61 78 20 74 63 3a 63 6f |heckSynt|ax tc:co|
|00001b10| 6d 70 69 6c 65 2d 66 69 | 6c 65 2d 69 6e 74 65 72 |mpile-fi|le-inter|
|00001b20| 6e 61 6c 5d 20 33 29 29 | 0a 0a 28 64 65 66 75 6e |nal] 3))|..(defun|
|00001b30| 20 74 63 3a 64 69 73 61 | 73 73 65 6d 62 6c 65 20 | tc:disa|ssemble |
|00001b40| 28 66 69 6c 65 6e 61 6d | 65 29 20 28 62 79 74 65 |(filenam|e) (byte|
|00001b50| 2d 63 6f 64 65 20 22 c2 | 08 09 5c 22 87 22 20 5b |-code ".|..\"." [|
|00001b60| 66 69 6c 65 6e 61 6d 65 | 20 6b 44 69 73 61 73 73 |filename| kDisass|
|00001b70| 65 6d 62 6c 65 20 74 63 | 3a 63 6f 6d 70 69 6c 65 |emble tc|:compile|
|00001b80| 2d 66 69 6c 65 2d 69 6e | 74 65 72 6e 61 6c 5d 20 |-file-in|ternal] |
|00001b90| 33 29 29 0a 0a 28 64 65 | 66 75 6e 20 74 63 3a 70 |3))..(de|fun tc:p|
|00001ba0| 72 65 70 72 6f 63 65 73 | 73 20 28 66 69 6c 65 6e |reproces|s (filen|
|00001bb0| 61 6d 65 29 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |ame) (by|te-code |
|00001bc0| 22 c2 08 09 5c 22 87 22 | 20 5b 66 69 6c 65 6e 61 |"...\"."| [filena|
|00001bd0| 6d 65 20 6b 50 72 65 70 | 72 6f 63 65 73 73 20 74 |me kPrep|rocess t|
|00001be0| 63 3a 63 6f 6d 70 69 6c | 65 2d 66 69 6c 65 2d 69 |c:compil|e-file-i|
|00001bf0| 6e 74 65 72 6e 61 6c 5d | 20 33 29 29 0a 0a 28 64 |nternal]| 3))..(d|
|00001c00| 65 66 75 6e 20 74 63 3a | 72 65 6d 6f 76 65 2d 6f |efun tc:|remove-o|
|00001c10| 62 6a 65 63 74 73 20 6e | 69 6c 20 28 62 79 74 65 |bjects n|il (byte|
|00001c20| 2d 63 6f 64 65 20 22 cf | 18 d0 0a d1 5c 22 19 cf |-code ".|....\"..|
|00001c30| 1b d0 0a d1 5c 22 1c cf | 1d d0 0a d1 5c 22 1e 06 |....\"..|....\"..|
|00001c40| cf 1e 07 d0 0e 09 d1 5c | 22 1e 08 cf 1e 0a cf 1e |.......\|".......|
|00001c50| 0b d2 d3 21 1e 0c d4 d5 | 8d 1e 0d 08 85 37 00 d6 |...!....|.....7..|
|00001c60| 08 21 88 0d 85 3f 00 d6 | 0c 21 88 0e 0e 85 49 00 |.!...?..|.!....I.|
|00001c70| d6 0e 06 21 88 0b 85 51 | 00 d6 09 21 88 0e 0d 2e |...!...Q|...!....|
|00001c80| 0c 87 22 20 5b 65 76 65 | 6e 74 20 6e 75 6c 6c 2d |.." [eve|nt null-|
|00001c90| 64 65 73 63 20 73 69 7a | 65 6f 66 2d 41 45 44 65 |desc siz|eof-AEDe|
|00001ca0| 73 63 20 68 61 76 65 2d | 6e 75 6c 6c 2d 64 65 73 |sc have-|null-des|
|00001cb0| 63 20 6f 62 6a 63 6f 64 | 65 2d 64 65 73 63 20 68 |c objcod|e-desc h|
|00001cc0| 61 76 65 2d 6f 62 6a 63 | 6f 64 65 2d 64 65 73 63 |ave-objc|ode-desc|
|00001cd0| 20 6f 62 6a 63 6f 64 65 | 2d 6f 62 6a 20 68 61 76 | objcode|-obj hav|
|00001ce0| 65 2d 6f 62 6a 65 63 74 | 2d 6f 62 6a 20 72 65 70 |e-object|-obj rep|
|00001cf0| 6c 79 20 73 69 7a 65 6f | 66 2d 41 70 70 6c 65 45 |ly sizeo|f-AppleE|
|00001d00| 76 65 6e 74 20 61 63 74 | 75 61 6c 53 69 7a 65 20 |vent act|ualSize |
|00001d10| 74 72 61 6e 73 61 63 74 | 69 6f 6e 49 44 20 6f 6e |transact|ionID on|
|00001d20| 65 20 72 65 73 75 6c 74 | 20 68 61 76 65 2d 6f 62 |e result| have-ob|
|00001d30| 6a 63 6f 64 65 2d 6f 62 | 6a 20 6e 69 6c 20 6d 61 |jcode-ob|j nil ma|
|00001d40| 6b 65 2d 73 74 72 69 6e | 67 20 30 20 65 6e 63 6f |ke-strin|g 0 enco|
|00001d50| 64 65 2d 6c 6f 6e 67 2d | 69 6e 74 65 67 65 72 20 |de-long-|integer |
|00001d60| 31 20 70 61 6e 69 63 20 | 28 62 79 74 65 2d 63 6f |1 panic |(byte-co|
|00001d70| 64 65 20 22 d8 d9 da 09 | 0a 23 18 08 41 40 89 13 |de "....|.#..A@..|
|00001d80| 88 08 41 41 89 14 88 08 | 40 29 21 88 d8 db 0d dc |..AA....|@)!.....|
|00001d90| dd 0e 06 24 21 88 c8 89 | 16 07 88 d8 db 0e 09 0e |...$!...|........|
|00001da0| 0a 0e 0a 47 0e 0b 24 21 | 88 c8 89 16 0c 88 d8 de |...G..$!|........|
|00001db0| 0e 0d 0e 06 0e 0e 0e 0b | dd 0e 0f 26 06 21 88 c8 |........|...&.!..|
|00001dc0| 89 16 10 88 d8 df 0b 0e | 11 0e 0f 23 21 88 d8 e0 |........|...#!...|
|00001dd0| 0b 0e 12 0e 13 0e 14 5c | 5c 0e 15 dd dd dd 26 07 |.......\|\.....&.|
|00001de0| 21 88 0c e1 e2 42 e3 e4 | 42 44 42 0e 16 42 89 16 |!....B..|BDB..B..|
|00001df0| 16 88 0e 17 87 22 20 5b | 74 65 6d 70 20 6b 41 45 |....." [|temp kAE|
|00001e00| 43 6f 72 65 53 75 69 74 | 65 20 6b 41 45 44 65 6c |CoreSuit|e kAEDel|
|00001e10| 65 74 65 20 65 76 65 6e | 74 20 74 72 61 6e 73 61 |ete even|t transa|
|00001e20| 63 74 69 6f 6e 49 44 20 | 74 79 70 65 4e 75 6c 6c |ctionID |typeNull|
|00001e30| 20 6e 75 6c 6c 2d 64 65 | 73 63 20 68 61 76 65 2d | null-de|sc have-|
|00001e40| 6e 75 6c 6c 2d 64 65 73 | 63 20 74 20 74 79 70 65 |null-des|c t type|
|00001e50| 4c 6f 6e 67 49 6e 74 65 | 67 65 72 20 6f 6e 65 20 |LongInte|ger one |
|00001e60| 6f 62 6a 63 6f 64 65 2d | 64 65 73 63 20 68 61 76 |objcode-|desc hav|
|00001e70| 65 2d 6f 62 6a 63 6f 64 | 65 2d 64 65 73 63 20 63 |e-objcod|e-desc c|
|00001e80| 4f 62 6a 65 63 74 43 6f | 64 65 20 66 6f 72 6d 41 |ObjectCo|de formA|
|00001e90| 62 73 6f 6c 75 74 65 50 | 6f 73 69 74 69 6f 6e 20 |bsoluteP|osition |
|00001ea0| 6f 62 6a 63 6f 64 65 2d | 6f 62 6a 20 68 61 76 65 |objcode-|obj have|
|00001eb0| 2d 6f 62 6a 63 6f 64 65 | 2d 6f 62 6a 20 6b 65 79 |-objcode|-obj key|
|00001ec0| 44 69 72 65 63 74 4f 62 | 6a 65 63 74 20 72 65 70 |DirectOb|ject rep|
|00001ed0| 6c 79 20 6b 41 45 51 75 | 65 75 65 52 65 70 6c 79 |ly kAEQu|eueReply|
|00001ee0| 20 6b 41 45 4e 65 76 65 | 72 49 6e 74 65 72 61 63 | kAENeve|rInterac|
|00001ef0| 74 20 6b 41 45 4e 6f 72 | 6d 61 6c 50 72 69 6f 72 |t kAENor|malPrior|
|00001f00| 69 74 79 20 61 65 2d 68 | 69 73 74 6f 72 79 20 6e |ity ae-h|istory n|
|00001f10| 6f 45 72 72 20 74 68 72 | 6f 77 2d 65 72 72 20 61 |oErr thr|ow-err a|
|00001f20| 65 2d 63 72 65 61 74 65 | 2d 61 70 70 6c 65 2d 65 |e-create|-apple-e|
|00001f30| 76 65 6e 74 2d 69 6e 74 | 65 72 6e 61 6c 20 22 4b |vent-int|ernal "K|
|00001f40| 41 48 4c 22 20 41 45 43 | 72 65 61 74 65 44 65 73 |AHL" AEC|reateDes|
|00001f50| 63 20 22 22 20 30 20 43 | 72 65 61 74 65 4f 62 6a |c "" 0 C|reateObj|
|00001f60| 53 70 65 63 69 66 69 65 | 72 20 41 45 50 75 74 50 |Specifie|r AEPutP|
|00001f70| 61 72 61 6d 44 65 73 63 | 20 41 45 53 65 6e 64 20 |aramDesc| AESend |
|00001f80| 64 65 73 63 72 69 70 74 | 69 6f 6e 20 22 72 65 6d |descript|ion "rem|
|00001f90| 6f 76 65 2d 6f 62 6a 65 | 63 74 73 22 20 68 61 6e |ove-obje|cts" han|
|00001fa0| 64 6c 65 72 20 64 6f 2d | 73 69 6d 70 6c 65 2d 72 |dler do-|simple-r|
|00001fb0| 65 70 6c 79 5d 20 31 39 | 29 20 41 45 44 69 73 70 |eply] 19|) AEDisp|
|00001fc0| 6f 73 65 44 65 73 63 5d | 20 31 30 29 29 0a 00 00 |oseDesc]| 10))...|
|00001fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002000| 00 00 01 00 00 00 01 0a | 00 00 00 0a 00 00 00 32 |........|.......2|
|00002010| 20 6f 66 20 68 65 61 64 | 65 72 20 6c 69 6e 65 20 | of head|er line |
|00002020| 6f 66 20 44 49 52 20 69 | 6e 20 74 68 69 73 20 64 |of DIR i|n this d|
|00002030| 0b 74 63 2d 73 65 6e 64 | 2e 65 6c 63 02 00 00 00 |.tc-send|.elc....|
|00002040| 64 45 4c 43 45 4d 41 43 | 00 00 00 00 00 00 00 00 |dELCEMAC|........|
|00002050| 00 00 64 45 4c 43 45 4d | 41 43 00 00 00 00 00 00 |..dELCEM|AC......|
|00002060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002070| 00 00 a9 9d 55 c5 00 00 | 1f 4e 00 00 01 3c 63 68 |....U...|.N...<ch|
|00002080| 61 72 20 69 73 20 65 69 | 74 68 65 72 20 5c 5c 6e |ar is ei|ther \\n|
|00002090| 2c 20 6f 72 20 5c 5c 72 | 20 69 66 20 44 49 52 20 |, or \\r| if DIR |
|000020a0| 69 73 20 68 69 64 64 65 | 6e 2e 22 20 28 69 6e 74 |is hidde|n." (int|
|000020b0| 65 72 61 63 74 69 76 65 | 20 28 62 79 74 65 2d 63 |eractive| (byte-c|
|000020c0| 6f 64 65 20 22 c3 c4 c5 | 08 c1 c2 c6 20 25 21 43 |ode "...|.... %!C|
|000020d0| c7 20 88 87 22 20 5b 64 | 69 72 65 64 2d 73 75 62 |. .." [d|ired-sub|
|000020e0| 64 69 72 2d 61 6c 69 73 | 74 20 6e 69 6c 20 74 20 |dir-alis|t nil t |
|000020f0| 65 78 70 61 6e 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |expand-f|ile-name|
|00002100| 00 00 00 06 05 45 6d 61 | 63 73 00 00 01 00 00 00 |.....Ema|cs......|
|00002110| 01 0a 00 00 00 0a 00 00 | 00 32 00 23 49 d8 06 fc |........|.2.#I...|
|00002120| 00 00 00 1c 00 32 00 00 | 53 54 52 20 00 00 00 0a |.....2..|STR ....|
|00002130| bf f4 ff ff 00 00 00 00 | 00 27 ce 60 00 00 00 00 |........|.'.`....|
|00002140| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+